10 :REM *** R. PRACHUN (1983) ***
12 :REM *** P.O.BOX 1447      ***
14 :REM *** PORT PERRY, ONT.  ***
16 :REM *** L0B 1N0           ***
18 :
22 DATA 169 , 1 , 162 , 4 , 160
24 DATA 255 , 32 , 186 , 255 , 32
26 DATA 192 , 255 , 162 , 1 , 32
28 DATA 201 , 255 , 133 , 2 , 32
30 DATA 231 , 255 , 96 , 0 , 0
31 :
32 POKE 808,225:REM DISABLE STOP/RESTORE KEYS
33 :
34 YY=28:GOSUB10000:DQ=0
36 DL$(1)="                                     "
38 DL$(2)="                                     "
40 DL$(3)="                                     "
42 DL$(4)="                                     "
44 F$="":WS$=""
46 NA$="                [212]HE [199]AME "
48 MO$(0)="    ":MO$(1)=""
50 E$="                                                      "
52 X1$="":X2$=""
54 X3$="":X4$=""
56 X5$=""
58 D5$=" [215]HAT IS YOUR CHOICE (1-4)? [146]"
60 Y1$=""
62 Y2$=""
64 Y3$=""
66 Y4$=""
68 PRINTCHR$(142):PRINT""
70 GOSUB5220
72 PRINT"[147]"CHR$(14):GOSUB5000
74 GOTO122
76 DIM P1$(3,130):I=0
78 C1=0:C2=0:W=0:R=0:PR=0
80 :
82 FORK=1TO3:I=0:POKE53280,K+10:POKE53281,K+11
84 I=I+1:READ P1$(K,I):IFP1$(K,I)="***"THEN88
86 N1(K)=N1(K)+1:GOTO84
88 NEXT K
90 :
92 FORK=1TO3:POKE53280,K+8:POKE53281,K+9
94 FORJ=1TO8:READQ1$(K,J),Q2$(K,J)
96 READ D1$(K,J),D2$(K,J),D3$(K,J),D4$(K,J),CO(K,J)
98 CV=CV+1:IFCV=2THENYY=158:CV=0
100 IFCV=1THENYY=28
102 GOSUB5350:NEXTJ:PRINT""
104 L(K,1)=INT(8*RND(1)+1)
106 FOR J=2TO5
108 L(K,J)=INT(8*RND(1)+1)
110 FORL=1TOJ-1
112 IFL(K,J)=L(K,L)THENL=J-1:GOTO108
114 NEXTL,J
116 NEXTK
118 RETURN
120 :
122 GOSUB194:F=1:GOSUB5670
124 GOSUB 248
126 IFVQ=2THENVQ=0:GOTO122
128 :
130 F=2
132 PRINT"[147]";NA$:PRINT"                 [208]ART 2":PRINT""
134 GOSUB 356:GOSUB194
136 GOSUB5670
138 GOSUB248
140 IFVQ=2THENVQ=0:GOTO130
142 F=3:PRINT"[147]";NA$:PRINT"                 [208]ART 3":PRINT""
144 GOSUB356:GOSUB194:GOSUB5670
146 GOSUB248
148 IFVQ=2THENVQ=0:GOTO142
150 PRINT"[147]        [211]UMMARY [210]EPORT ":TQ=R+W
152 PRINT"       [211]TUDENT: ";SN$
154 ZZ=W+R:PR=INT((R/ZZ)*100)
156 PRINT"       [212]OTAL [206]UMBER OF [209]UESTIONS:";TQ
158 PRINT"       [193]NSWERS CORRECT (1ST TRY):";C1
160 PRINT"       [193]NSWERS CORRECT (2ND TRY):";C2
162 PRINT"       [212]OTAL [201]NCORRECT [209]UESTIONS:";W
164 PRINT"       [212]OTAL [209]UESTIONS [195]ORRECT  :";R
166 PRINT"       =============================="
168 PRINT"       [208]ERCENTAGE [195]ORRECT       :";PR;" %"
170 GOSUB6570:IFDQ=2THENDQ=0:GOTO170
172 PRINT"[147]     [196]O YOU WISH TO SEE THE STORY"
174 PRINT"       IN PARAGRAPH FORM (Y/N)?"
176 GETZ$:IFZ$=""THEN176
178 IFZ$="Y"THEN182
180 GOSUB6410:GOTO 8000
182 FORK=1TO3
184 PRINT"[147]";NA$;"":FORI=1TON1(K)
186 PRINT MO$(NX);P1$(K,I)" ";
188 NX=NX+1:IFNX=2THENPRINT:NX=0
190 IFP1$(K,I)=" "THENGOSUB6200
192 NEXTI:NX=0:NEXTK:GOSUB6410:GOTO6240
194 IFQH=1THENRETURN
196 PRINT"[147]";NA$
198 PRINT"[144]        [195]HOOSE THE STORY SPEED."
200 PRINT"               1.[146] [198]AST"
202 PRINT"               2.[146] [205]EDIUM"
204 PRINT"               3.[146] [211]LOW"
206 PRINT"[144]        [217]OUR CHOICE (1,2,3)?"
208 GETZ$:IFZ$=""THEN208
210 GOSUB5560:CH=VAL(Z$):IFCH<1ORCH>3THEN194
212 IFCH=1THENS=20
214 IFCH=2THENS=50
216 IFCH=3THENS=75
218 GOSUB 220:GOSUB236:RETURN
220 PRINT"[147]    [212]O CHANGE THE STORY SPEED, PRESS"
222 PRINT"      AND [200][207][204][196] THE FOLLOWING KEYS;"
224 PRINT"         [212]HE [144] [198]1 [146] KEY = [198][193][211][212][197][210]"
226 PRINT"         [212]HE [144] [198]7 [146] KEY = [211][204][207][215][197][210]"
228 PRINT"     [208]RESS THE [210][197][212][213][210][206] KEY TO START."
230 GETZ1$:IFZ1$=""THEN230
232 IFZ1$<>CHR$(13)THEN230
234 GOSUB5560:RETURN
236 PRINT"[147]":X=1305:Y=1465:XC=55576:YC=55736
238 PRINT""
240 PRINT"       [198]1 [146] = [198]ASTER   [198]7 [146] = [211]LOWER"
242 FORDY=1TO500:NEXTDY
244 FOR J=1TO 39
246 POKEX,42:POKEXC,7:POKEYC,7:XC=XC+1:YC=YC+1:POKEY,42:X=X+1:Y=Y+1:NEXTJ:RETURN
248 POKE53280,6:POKE53281,12:PRINT"[147]";NA$:PRINT:POKE198,0
250 PRINT"   ";SN$;", WOULD YOU LIKE TO"
252 PRINT"   READ THIS PART OF THE STORY AGAIN  "
254 PRINT"   BEFORE ANSWERING THE QUESTIONS  "
256 PRINT"   THAT FOLLOW (Y/N)?"
258 GETZ$:IFZ$=""THEN258
260 GOSUB5560
262 IFZ$="Y"ANDF=1THEN122
264 IFZ$="Y"ANDF=2THEN124
266 IFZ$="Y"ANDF=3THEN142
268 IFZ$<>"N"THEN248
270 PRINT"[147]"NA$
272 PRINT"  [208]LEASE ANSWER THE FOLLOWING QUESTIONS"
274 PRINT"  BY TYPING IN THE NUMBER THAT MATCHES"
276 PRINT"  THE CORRECT ANSWER."
278 GOSUB 356:TM=0
280 FOR J=1TO5
282 PRINT"[147]             [209][213][197][211][212][201][207][206] #[146] ";J
284 PRINT"[158] **************************************"
286 PRINT" ";Q1$(F,L(F,J)):PRINT" ";Q2$(F,L(F,J))
288 PRINT"[158] **************************************"
290 GOSUB382
292 GETZ$:IFZ$=""THEN292
294 QC=VAL(Z$):IFQC<1ORQC>4THEN292
296 GOSUB370
298 FORV=1TO4
300 IFV=QCTHEN304
302 PRINTDL$(V)
304 NEXTV
306 IFQC=CO(F,L(F,J))THEN348
308 PRINTY1$;"       [211]ORRY, THAT IS INCORRECT."
310 PRINTY2$;"               [212]RY AGAIN!"
312 GOSUB382
314 GETZ1$:IFZ1$=""THEN314
316 QS=VAL(Z1$):IFQS<1ORQS>4THEN314
318 IFQS=CO(F,L(F,J))THEN336
320 FORV=1TO4
322 IFV=CO(F,L(F,J))THEN326
324 PRINTDL$(V)
326 NEXTV
328 PRINTY3$;"       [206]O, THE ANSWER IS NUMBER ";CO(F,L(F,J)):W=W+1
330 TM=TM+1:IFTM=3THENJ=5:GOSUB6300:W=W-1:RETURN
332 :
334 GOSUB 356:GOTO354
336 FORV=1TO4
338 IFV=QSTHEN342
340 PRINTDL$(V)
342 NEXTV:GOSUB370
344 PRINTY3$;"       [206]OW YOU HAVE IT! [199]OOD WORK!":C2=C2+1
346 GOSUB364:R=R+1:GOSUB356:GOTO354
348 GOSUB402:PRINTY2$;CG$:R=R+1:C1=C1+1
350 GOSUB364
352 GOSUB356
354 NEXTJ:RETURN
356 PRINT:PRINT"   [208]RESS THE [146] [210][197][212][213][210][206] KEY  TO CONTINUE "
358 GETQ$:IFQ$=""THEN358
360 IFQ$<>CHR$(13)THEN358
362 GOSUB5560:RETURN
364 FORSX=1TO10:POKE53280,SX:POKE53281,SX+1:FORDY=1TO25:NEXTDY:NEXTSX
366 POKE53280,6:POKE53281,12
368 RETURN
370 PRINTY1$"                                       "
372 PRINTY2$"                                       "
374 PRINTY3$"                                       "
376 PRINTY4$"                                       "
378 PRINTX5$"                                       "
380 RETURN
382 REM
384 PRINTX1$;" 1.[146] ";D1$(F,L(F,J))
386 PRINTX2$;" 2.[146] ";D2$(F,L(F,J))
388 PRINTX3$;" 3.[146] ";D3$(F,L(F,J))
390 PRINTX4$;" 4.[146] ";D4$(F,L(F,J))
392 PRINTX5$;"     ";D5$
394 RETURN
396 :
398 REM **** DATA FOR STORY ****
400 :
402 WS=INT(RND(1)*5+1)
404 ONWSGOSUB408,410,412,414,416
406 RETURN
408 CG$="           [195][160][207][160][210][160][210][160][197][160][195][160][212] ! ":RETURN
410 CG$="         [198][160][193][160][206][160][212][160][193][160][211][160][212][160][201][160][195] ! ":RETURN
412 CG$="         [211][160][213][160][208][160][197][160][210]   [215][160][207][160][210][160][203]! ":RETURN
414 CG$="         [201][160][206][160][195][160][210] [197][160][196][160][201] [194][160][204][160][197] ! ":RETURN
416 CG$="         [211] [212][160][213][160][208][160][197][160][206][160][196][160][207][160][213] [211] ! ":RETURN
2000 DATA"  [211]OMEONE GREAT","ONCE SAID,","IT'S NOT","WHETHER YOU","WIN OR LOSE,"
2005 DATA"IT'S HOW","YOU PLAY","THE GAME."
2010 DATA"[207]BVIOUSLY,","THAT SOMEONE,","NEVER LOST","A GAME!"," "
2015 DATA"  [194]ASEBALL,","WASN'T EVEN","MY FAVOURITE GAME."
2020 DATA"[211]O WHY THEN,","DID [201] CARE","ABOUT IT","SO MUCH?"," "
2025 DATA"  [205]Y BROTHER","SAID [201] CARED","BECAUSE [201] WAS","THE ONLY"
2030 DATA"GIRL PITCHER","IN THE WHOLE","REGIONAL LEAGUE.","[200]E SAID,"
2035 DATA"[201] FELT THREATENED","BY THE BOYS","ON THE TEAM","AND THAT"
2040 DATA"WAS WHY","[201] TRIED","SO HARD.","[194]UT THEN,","WHAT","DO BROTHERS"
2045 DATA"KNOW?"," ","  [212]HE PROBLEM","STARTED WITH","THE GAME AGAINST"
2050 DATA"THE [210]ED [198]LAMES,","SOME NORTH-END","BOY'S TEAM","THAT NO ONE"
2055 DATA"HAD EVER","HEARD OF.","[212]HEY DIDN'T","EVEN HAVE","DECENT UNIFORMS."
2060 DATA"[201] MEAN,","WHO","WOULD WEAR","GREEN","AND PURPLE?"
2065 DATA"[212]HEIR UNIFORMS","HOWEVER,","WERE NOT","THE PROBLEM.","[212]HEIR PITCHER"
2070 DATA"WAS THE PROBLEM."," ","  [212]HEY CALLED HIM"," [194]EAKER [146]."
2072 DATA"[217]OU GUESSED IT!"
2075 DATA"[200]E HAD","A NOSE","LIKE A VULTURE.","[194]UT HIS NOSE","WAS NOTHING."
2080 DATA"[201]T WAS","HIS MOUTH","THAT WAS","TOO BIG!"," ","***"
2085 DATA"  [201]T STARTED","IN THE THIRD","INNING.","[197]VERYTIME","[194]EAKER,"
2090 DATA"WOUND UP","TO PITCH,","HE WOULD STOP","AND PRETEND","TO FLIP BACK"
2095 DATA"SOME IMAGINARY","PIGTAILS","OVER","HIS SHOULDERS.","[201]T WAS","A HABIT"
2100 DATA"[201] HAD,","THAT [201]","DIDN'T","EVEN NOTICE,","UNTIL THEN."," "
2105 DATA"  [194]EAKER'S TEAM","CAUGHT ON","TO THE JOKE","RIGHT AWAY."
2110 DATA"[194]Y THE FOURTH","INNING,","THE WHOLE TEAM","WAS DOING IT."
2115 DATA"[201]T WAS","JUST ABOUT THEN,","THAT [194]EAKER","STARTED FLAPPING"
2120 DATA"THAT ENORMOUS","JAW OF HIS."," ","  [201] WAS ON"
2125 DATA"MY WIND-UP,","WHEN [194]EAKER","LET FLY","HIS FIRST COMMENT."
2130 DATA"[212]HE WHOLE PARK","MUST HAVE","HEARD IT!","'[212]HE PITCHER","NEEDS"
2135 DATA"A DRESS'."," ","  [212]HE EMBARRASSING","PART WAS,","THAT MY PITCH"
2140 DATA"HIT THE GROUND","TWO FEET SHORT","OF HOME PLATE!","[210]ALPH,"
2145 DATA"OUR BACKCATCHER","JUST STOOD","STARING AT ME","LIKE AN IDIOT."
2150 DATA"[212]HAT WAS","THE BEGINNING","OF THE END.","[198]ROM THERE ON,","IT WAS"
2155 DATA"ALL DOWNHILL!"," ","***"
2160 DATA"  [201]F [201] WERE","SUPERSTITIOUS,","[201]'D HAVE SAID","[194]EAKER","HAD PLANNED"
2165 DATA"THE ENTIRE","GRISLY AFFAIR."," ","  [215]E WERE","DOWN TO","A TWO POINT"
2170 DATA"LEAD","IN THE LAST","INNING","WITH","YOUR'S TRULY","ON THE MOUND."
2175 DATA"[201]'D MUFFED","TWO BATTERS","OVER TO","FIRST AND SECOND","AND [201] HAD"
2180 DATA"ONE STRIKE","AND THREE BALLS","AGAINST","THE GUY","ON THE PLATE."
2185 DATA"  [210]ALPH","WAS CALLING","FOR MY","CURVE BALL,","WHILE [194]EAKER"
2190 DATA"WAS TURNING","BEET RED","FROM THE STRAIN","OF YELLING","INSULTS."
2195 DATA" ","  [212]HE BATTER","WALKED","TO FIRST,","AFTER MY","CURVE BALL"
2200 DATA"NEARLY","DECAPITATED","THE POOR GUY.","[194]ASES LOADED","AND [194]EAKER"
2205 DATA"HOWLING","WITH DELIGHT!"," ","[205]Y BRACES","NEARLY","DROPPED OUT,"
2210 DATA"WHEN [201] REALIZED","THAT [194]EAKER","WAS UP","NEXT."," ","  [212]HE DECISION"
2215 DATA"DROVE ME","ALMOST MAD.","[201] COULD","EITHER","TRY TO","SWING HIM OUT,"
2220 DATA"OR","[201] COULD","TRY TO","KNOCK HIM OUT."," "
2225 DATA"  [194]Y THE TIME","[194]EAKER HAD","TWO STRIKES","AND THREE BALLS","CALLED"
2230 DATA"ON HIM,","[201] WAS","A MESS.","[201] COULD","SENSE","EVERYONE'S EYES"
2235 DATA"STARING;","WONDERING;","AND WAITING!","[194]EAKER'S FOREHEAD"
2240 DATA"GLISTENED","WITH BEADS","OF SWEAT.","[212]HE BALL","WAS GETTING"
2245 DATA"SLIPPERY!"," ","[193]S [201] WOUND-UP,","THE PLACE","WENT SILENT."
2250 DATA"[194]EAKER'S EYES","BULGED.","[205]Y KNUCKLE BALL","BLISTERED","THE AIR."," "
2255 DATA"  [194]EAKER'S NECK","NEARLY SNAPPED","WITH THE STRAIN,","BUT THAT"
2260 DATA"FAMILIAR SMACK","OF A BALL","BURNING INTO","A CATCHER'S MITT,"
2265 DATA"BROUGHT A SMILE","TO MY FACE."," "
2270 DATA"  [207]NE THING'S","FOR SURE,","IT'S NOT","WHETHER","YOU WIN","OR LOSE,"
2275 DATA"IT'S HOW","YOU PLAY","THE GAME!"," ","***"
2280 DATA"[215]HICH STATEMENT IS TRUE?"," ","BASEBALL WAS HER BEST SPORT"
2285 DATA"BASEBALL WAS VERY DIFFICULT","THE AUTHOR HATED BASEBALL"
2290 DATA"BASEBALL WAS NOT HER BEST SPORT",4
2295 DATA"[212]HE AUTHOR WAS THE ONLY GIRL","PITCHER IN ...?"
2300 DATA"THE ENTIRE TEAM","THE WHOLE CITY LEAGUE","THE REGIONAL LEAGUE"
2305 DATA"THE ENTIRE COUNTY",3
2310 DATA"[215]HAT EXPLANATION DID THE AUTHOR'S","BROTHER GIVE ABOUT HER CARING?"
2315 DATA"HER PROBLEM WAS EMOTIONAL","SHE FELT THREATENED"
2320 DATA"HE HAD NO EXPLANATION","HE FELT SHE WAS SICK",2
2325 DATA"[212]HE OPPOSING TEAM WAS CALLED..."," ","THE [210]ED [198]LAMES","THE [200]OT [198]LAMES"
2330 DATA"THE [210]ED [212]ORCH","THE [210]ED [198]ALCONS",1
2335 DATA"[215]HY WHERE THE OPPOSING TEAM'S","UNIFORMS VERY POOR?"
2340 DATA"THEY WERE VERY OLD","THEY WERE DIRTY","THEY WERE A POOR COLOR CHOICE"
2345 DATA"THEY WERE A BAD DESIGN",3
2350 DATA"[200]OW DID [194]EAKER GET HIS NAME?"," ","HE HAD EAGLE EYES"
2355 DATA"HE HAD A BIG MOUTH","FROM THE SHAPE OF HIS HEAD","HE HAD A BIG NOSE",4
2360 DATA"[215]HERE DID THE OPPOSING BOY'S","TEAM COME FROM?"
2365 DATA"THE [206]ORTH END","THE [211]OUTH END","THE LOWER HALF OF TOWN"
2370 DATA"THE [215]EST DISTRICT",1
2375 DATA"[215]HAT DOES,'ITS NOT WHETHER YOU","WIN OR LOSE', MEAN?"
2380 DATA"LOSING IS HEALTHY","WE CAN'T WIN ALL THE TIME"
2382 DATA"WINNING IS UNIMPORTANT"
2385 DATA"WINNING IS ONLY PART OF THE GAME",4
2390 DATA"[215]HAT DOES,'IT'S HOW YOU PLAY THE","GAME' MEAN?"
2395 DATA"STYLE OF PLAY IS IMPORTANT","BEING FAIR IS IMPORTANT"
2400 DATA"WINNING IS UNIMPORTANT","GAME PLANNING IS VERY IMPORTANT",2
2405 DATA"[215]HAT WAS THE [194]EAKER'S PROBLEM?"," "
2410 DATA"HE COULDN'T PITCH","HE HAD AN ENORMOUS NOSE","HE TALKED TOO MUCH"
2415 DATA"HE HATED GIRLS",3
2420 DATA"[201]N WHICH INNING DID [194]EAKER BEGIN","HIS SHOUTING?"
2425 DATA"THE THIRD","THE FIFTH","THE FOURTH","THE MIDDLE",3
2430 DATA"[215]HAT ACTION DID BEAKER PRETEND TO","DO ON EACH OF HIS PITCHES?"
2435 DATA"HE COMBED HIS HAIR","HE POWDERED HIS NOSE","HE FLIPPED AWAY PIGTAILS"
2440 DATA"HE STRAIGHTENED A DRESS",3
2445 DATA"[215]HY HADN'T THE AUTHOR NOTICED HER","HAIR HABIT BEFORE?"
2450 DATA"SHE WAS TOO BUSY","SHE TOOK IT FOR GRANTED","SHE WAS EMBARRASSED"
2455 DATA"SHE DIDN'T CARE",2
2460 DATA"[215]HAT WAS [194]EAKER TRYING TO DO WITH","THE HAIR ROUTINE?"
2465 DATA"HE TRIED TO GET LAUGHS","HE WAS BEING A CLOWN"
2470 DATA"HE WAS TRYING TO ANNOY BATTERS","HE WAS POKING FUN AT THE AUTHOR",4
2475 DATA"[215]HAT WAS ALL OF THE OPPOSING TEAM","DOING BY THE 4TH INNING?"
2480 DATA"THEY WERE LAUGHING","THEY PRETENDED TO HAVE PIGTAILS"
2485 DATA"THEY WERE PLAYING BETTER BALL","THEY WERE LOSING THE GAME",2
2490 DATA"[215]HAT WAS THE AUTHOR DOING WHEN","[194]EAKER MADE HIS FIRST COMMENT?"
2495 DATA"SHE WAS AT BAT","SHE WAS ON THE BENCH","SHE WAS WINDING UP A PITCH"
2500 DATA"SHE WAS CATCHING A HIT",3
2505 DATA"[215]HY DID [194]EAKER'S FIRST COMMENT","EMBARRASS THE AUTHOR?"
2510 DATA"THE PITCH HIT THE GROUND","SHE WALKED THE BATTER","SHE WAS VERY SHY"
2515 DATA"SHE WAS VERY PROUD",1
2520 DATA"[215]HO WAS [210]ALPH?"," ","THE UMPIRE","A GOOD FRIEND","THE BACKCATCHER"
2525 DATA"A LOYAL FAN",3
2530 DATA"[215]HY DID [210]ALPH JUST STARE AT THE","POOR PITCH MADE BY THE AUTHOR?"
2535 DATA"HE WAS ANGRY","HE WAS ILL","HE WAS VERY TIRED","HE WAS SURPRISED",4
2540 DATA"[215]HY DID THE AUTHOR FEEL THAT THE","WHOLE PARK HAD HEARD THE COMMENT?"
2545 DATA"IT WAS A SMALL PARK","[194]EAKER YELLED VERY LOUDLY"
2550 DATA"EVERYONE STARTED LAUGHING","THE PARK WAS VERY QUIET JUST THEN",2
2555 DATA"[215]HAT DOES THE WORD 'SUPERSTITIOUS'","MEAN?"
2560 DATA"VERY POWERFUL","ODD","UNBEILIEVABLE","BELIEF IN THE SUPERNATURAL",4
2565 DATA"[212]HE AUTHOR'S TEAM HAD A..."," ","2 POINT LEAD","WERE 2 POINTS BEHIND"
2570 DATA"WERE 4 POINTS BEHIND","WERE LOSING",1
2575 DATA"[215]HY WAS BEAKER HOWLING WITH DELIGHT","WHEN THE BASES GOT LOADED?"
2580 DATA"HE WAS AFFECTING THE AUTHOR","HE FELT HE WAS WINNING"
2585 DATA"HE WAS HAVING A GOOD TIME","EVERYONE FOUND HIM FUNNY",1
2590 DATA"[215]HY HAD [194]EAKER TURNED 'BEET RED'","WITH THE THIRD BATTER UP?"
2595 DATA"HE WAS LAUGHING SO HARD","HE WAS SCREAMING SO HARD","HE WAS COUGHING"
2600 DATA"HE WAS EXTREMELY ANGRY",2
2605 DATA"[215]HY DID THE AUTHOR NEARLY DROP","HER BRACES?"
2610 DATA"SHE WAS VERY ANGRY","[194]EAKER MADE A RUDE COMMENT","SHE PITCHED SO HARD"
2615 DATA"[194]EAKER WAS UP TO BAT",4
2620 DATA"[212]HE AUTHOR'S TWO CHOICES WERE..."," ","PLAY FAIR & LOSE"
2625 DATA"PLAY UNFAIR & WIN","HIT OR WALK [194]EAKER","HIT [194]EAKER OR SWING HIM OUT"
2630 DATA4,"[215]HY WAS THE CROWD WONDERING AND","WAITING?"
2635 DATA"THE AUTHOR COULD GET BACK AT [194]EAKER","THE GAME WAS VERY CLOSE"
2640 DATA"THE AUDIENCE WAS UPSET","THE GAME WAS VERY SLOW",1
2645 DATA"[215]HICH EVENT HAPPENED LAST?"," ","THE AUTHOR WAS A MESS"
2650 DATA"THE PARK WAS SILENT","[194]EAKER'S EYES BULGED"
2655 DATA""SWEAT GLISTENED ON EAKER'S HEAD",3
2660 [131]"(null)HAT DOES 'THE BALL WAS GETTING","SLIPPERY' MEAN?"
2665 [131]"THE AUTHOR WAS TIRED","THE BALL WAS OILY","THE AUTHOR WAS NERVOUS"
2670 [131]"THE AUTHOR'S GLOVE WAS WET",3
2675 [131]"(null)HAT DOES THE WORD 'GRISLY'","MEAN?"
2680 [131]"HORRIBLE","COMPLETE","STRANGE","STUPID",1
4997 :
4998 [143] **** END OF STORY DATA ****
4999 :
5000 [151]53280,5:[151]53281,12:[141]6870
5007 [153]"LOAD";NA$
5010 [153]"       LEFT$ELLO, ";SN$;"."
5020 [153]"        (null)LEASE READ THE STORY AND"
5030 [153]"       ANSWER THE QUESTIONS THAT"
5040 [153]"       FOLLOW."
5050 [153]"     (null)OU MAY HAVE THE STORY PRINTED"
5060 [153]"       OUT IN TWO DIFFERENT WAYS."
5070 [153]"       1) ATN  PARAGRAPH WAIT AT A TIME."
5080 [153]"       2) ATN  PHRASE WAIT AT A TIME."
5090 [153]"       RIGHT$N OPTION NUMBER TWO YOU "
5100 [153]"     WILL BE ABLE TO CONTROL THE "
5110 [153]"     SPEED OF THE PHRASES AS THEY"
5120 [153]"     FLASH ON THE SCREEN."
5130 [153]"  (null)HICH (null)(null)(null)RIGHT$(null)(null) WOULD YOU LIKE (1 OR 2)?"
5140 [161]X$:[139]X$[178]""[167]5140
5150 QH[178][197](X$):[139]QH[179]1[176]QH[177]2[167]5140
5160 [142]
5170 [161]Z$:[139]Z$[178]""[167]5170
5180 [139]Z$[179][177][199](13)[167]5170
5190 [141]5560
5210 [142]
5220 [153]"LOAD":[151]53280,6:[151]53281,12
5230 [141]5340:[137]5240
5240 AS[178]2006:AD[178][171]39
5250 [153]WS$;"           ONE MOMENT, PLEASE! "
5260 [141]76:[142]
5270 [129]D[178]1[164]100:[130]D:[142]
5280 [142]
5290 [142]
5300 [142]
5310 :
5320 [143] *** GRAPHIC OPENING ***
5330 :
5340 [151]53281,12:[151]53280,7
5350 [153]"           R. PRACHUN (1983) "
5352 :
5353 [143] *** OPENING GRAPHIC START ***
5354 :
5360 [153][199](YY)"               WAIT   WAIT    WAIT       WAIT"
5362 [153]"             WAIT     WAIT    WAIT   WAIT"
5364 [153]"             WAIT         WAIT    WAIT"
5366 [153]"             WAIT     WAIT    WAIT   WAIT"
5368 [153]"             WAIT     WAIT    WAIT       WAIT"
5470 [153]
5480 [153]"            WAIT       WAIT   WAIT    WAIT       WAIT"
5482 [153]"        WAIT    WAIT   WAIT    WAIT    WAIT   WAIT   WAIT"
5484 [153]"        WAIT           WAIT   WAIT  WAIT  WAIT    WAIT"
5486 [153]"        WAIT    WAIT   WAIT    WAIT   WAIT    WAIT    WAIT"
5488 [153]"        WAIT    WAIT   WAIT    WAIT   WAIT    WAIT   WAIT"
5490 [153]"            WAIT   WAIT    WAIT   WAIT    WAIT       WAIT"
5492 [153]""
5498 [153]"               (null)USRUSRUSRUSRUSRUSRUSR(null)
5500 PRINT"               [165]       [167]
5502 [153]"               FNH O M ETHEN
5504 PRINT"               [165]       [167]
5506 [153]"               (null)       (null)
5508 PRINT"                [205]     [206]
5510 [153]"                 TAB(TAB(TAB(TAB(TAB(
5520 RETURN
5555 REM *** END OF OPENING GRAPHIC ***
5560 SM=54272:FORL=0TO24:POKESM+L,0:NEXT
5570 POKESM+1,45 :POKESM+5,10
5580 POKESM+15,30:POKESM+24,6:POKESM+4,21
5590 FORTT=1TO150:NEXT
5600 POKESM+4,20:POKESM+24,0
5610 RETURN
5640 :
5650 REM *** PRINTOUT ROUTINE ***
5660 :
5670 IFQH=1THEN6050
5680 POKE53280,0:POKE53281,11
5690 FORI=1TON1(F)
5700 SH=PEEK(203):IFSH=4THENS=S-5
5710 IFSH=3THENS=S+5
5720 IFS<10THENS=10
5730 IFS>60THENS=60
5740 SH=64
5750 PRINT"              [211][208][197][197][196] [146] =";S
5760 PRINTE$:PRINTF$;
5770 PRINT"          ";(P1$(F,I))
5780 FOR J=1TOS*10:NEXTJ
5790 NEXT I:RETURN
5800 :
6040 :
6050 PRINT"[147]";NA$;"":FORI=1TON1(F)
6060 PRINT MO$(NX);P1$(F,I)" ";
6070 NX=NX+1:IFNX=2THENPRINT:NX=0
6080 IFP1$(F,I)=" "THENGOSUB6200
6090 NEXTI:NX=0:RETURN
6100 STOP:PRINT"[147]";NA$;"":FORI=1TON2
6110 PRINT P1$(F,I);" ";
6120 NX=NX+1:IFNX=2THENPRINT:NX=0
6130 IFP1$(F,I)=" "THENGOSUB6200
6140 NEXTI:NX=0:RETURN
6150 PRINT"[147]";NA$;"":FORI=1TON3
6160 PRINT P1$(F,I);" ";
6170 NX=NX+1:IFNX=2THENPRINT:NX=0
6180 IFP3$(F,I)=" "THENGOSUB6200
6190 NEXTI:NX=0:RETURN
6200 PRINT"   [208]RESS THE [146] [210]ETURN [203]EY  TO [195]ONTINUE "
6210 GETZ$:IFZ$=""THEN6210
6220 IFZ$<>CHR$(13)THEN6210
6230 PRINT"[147]";NA$;"":NX=0:RETURN
6235 :
6300 REM
6310 PRINT"[147]      [217]OU APPEAR TO BE HAVING SOME "
6320 PRINT"      TROUBLE WITH THESE QUESTIONS."
6330 PRINT"       [212]RY READING THIS PART OF THE"
6340 PRINT"      STORY AGAIN. [201] WILL GIVE YOU "
6350 PRINT"      ANOTHER SET OF QUESTIONS WHEN"
6360 PRINT"      YOU HAVE FINISHED."
6370 PRINT"   [208]RESS THE [146] [210][197][212][213][210][206]  KEY TO CONTINUE "
6380 GETX$:IFX$=""THEN6380
6390 IFX$<>CHR$(13)THEN6380
6400 TM=0:VQ=2:RETURN
6410 PRINT"[147]     [196]O YOU WISH TO HAVE THE STORY"
6420 PRINT"     PRINTED OUT TO A PRINTER (Y/N)?"
6430 GETZ$:IFZ$=""THEN6430
6440 IFZ$="Y"THENGOSUB10500:GOTO6470
6450 IFZ$<>"N"THEN6430
6460 RETURN
6470 IFDQ=2THENDQ=0:GOSUB9700:GOTO6410
6475 PRINT"[147]    [201]NSERT PAPER AND [212]URN ON [208]RINTER! ":GOSUB356
6480 OPEN4,4
6490 FORK=1TO3
6500 PRINT#4,"";NA$
6510 FOR I=1TO N1(K)
6520 PRINT#4,"";MO$(NX);P1$(K,I)" ";
6530 NX=NX+1:IFNX=4THENPRINT#4:NX=0
6540 IFP1$(K,I)=" "THENPRINT#4:NX=0
6550 NEXTI:NX=0:NEXTK:CLOSE4
6560 RETURN
6570 PRINT"   [215]OULD YOU LIKE THE [210]EPORT TO BE"
6580 PRINT"   PRINTED ON A PRINTER (Y/N)?"
6590 GETX$:IFX$=""THEN6590
6600 IFX$="Y"THEN6630
6610 IFX$<>"N"THEN6590
6620 RETURN
6630 GOSUB6850:IFDQ=2THENGOSUB9700:RETURN
6635 PRINT"   [208]RINTING OUT [210]EPORT FOR [146] ";SN$
6640 TQ=W+R
6650 OPEN4,4
6660 PRINT#4,"";NA$
6670 PRINT#4
6680 PRINT#4,"   ==================================="
6690 PRINT#4,"        [211]TUDENT: ";SN$
6700 PRINT#4,"   ==================================="
6710 PRINT#4,"   [211]TORY [210]EPORT"
6720 PRINT#4,"   ------------"
6730 PRINT#4,"   [212]OTAL [206]UMBER OF [209]UESTIONS: ";TQ
6740 PRINT#4
6750 PRINT#4,"   [193]NSWERS [195]ORRECT (1ST TRY): ";C1
6760 PRINT#4
6770 PRINT#4,"   [193]NSWERS [195]ORRECT (2ND TRY): ";C2
6780 PRINT#4
6790 PRINT#4,"   [212]OTAL [201]NCORRECT [209]UESTIONS: ";W
6800 PRINT#4
6810 PRINT#4,"   [212]OTAL [209]UESTIONS [195]ORRECT  : ";R
6820 PRINT#4,"   ----------------------------------"
6830 PRINT#4,"   [208]ERCENTAGE [195]ORRECT       : ";PR;" %"
6840 CLOSE4:GOSUB356:RETURN
6850 SYS(828):IFPEEK(2)=5THENDQ=2:RETURN
6858 PRINT"[147]  [201]NSERT PAPER AND TURN ON THE PRINTER "
6860 GOSUB356:PRINT"[147]":RETURN
6862 :
6870 PRINTCHR$(142):PRINT"[147]"
6880 VB$="":IU=14:JQ=0
6900 PRINT"        PLEASE TYPE IN YOUR FIRST "
6910 PRINT"        NAME:>[146] ":PRINT
6920 ZZ$="":POKE204,1:PRINTVB$
6930 GETZA$:IFZA$=""THEN6930
6940 IFASC(ZA$)=13THENSN$=ZZ$:GOTO7000
6950 IFASC(ZA$)=20THENGOTO6980
6955 IFASC(ZA$)<65ORASC(ZA$)>90THEN6930
6957 JQ=JQ+1:IFJQ=16THENZZ$="":GOTO6870
6960 ZZ$=ZZ$+ZA$:IU=IU+1
6970 PRINT"";TAB(IU);ZA$;:GOTO6930
6980 IFIU=14THENGOTO6930
6990 JQ=JQ-1:ZZ$=LEFT$(ZZ$,LEN(ZZ$)-1):IU=IU-1:GOTO6970
7000 IFSN$=""THEN6870
7010 FL=ASC(LEFT$(ZZ$,1)):FL=FL+128
7020 SN$=MID$(ZZ$,2,(LEN(ZZ$)-1))
7030 ZZ$=CHR$(FL)+SN$:SN$=ZZ$
7040 PRINTCHR$(14):RETURN
8000 PRINT"[147]     [215]OULD YOU OR ANYONE ELSE LIKE "
8010 PRINT"     TO READ THIS STORY NOW (Y/N)?"
8020 GETZ$:IFZ$=""THEN8020
8025 IFZ$="Y"THENRUN
8030 IFZ$<>"N"THEN8020
8040 :
8041 PRINT"      [215]OULD YOU LIKE ANOTHER STORY"
8042 PRINT"             PERHAPS (Y/N)?"
8050 GETX$:IFX$=""THEN8050
8060 IFX$="Y"THENGOSUB9500:GOTO9000
8070 IFX$<>"N"THEN8050
8100 SYS64738
8200 :END:
9000 IFDQ=2THENDQ=0:POKE831,4:GOSUB9700:GOTO8040
9005 PRINT"[144][147]        [204]OADING:  [205]AIN [205]ENU 64 "
9010 POKE53281,1:POKE53280,6
9020 REM *** BOOT SAMPLE ***
9030 :
9040 :
9050 REM *** FIRST PROGRAM BOOTED ***
9060 :
9070 PRINT"LOAD"CHR$(34)"MAIN MENU 64";CHR$(34)",8"
9080 :
9090 :
9100 PRINT"RUN"
9110 :
9120 REM *** SET-UP KEYBOARD BUFFER ***
9130 :
9140 PRINT"":FORJ=0TO4:POKE631+J,13:NEXTJ:POKE198,5
9150 END
9500 POKE831,8:GOSUB10500:IFDQ=2THENRETURN
9505 PRINT"[147]    [201]NSERT THE [193]DVENTURE [211]ERIES DISK"
9510 PRINT"          INTO THE DISK DRIVE."
9520 GOSUB356:RETURN
9700 PRINT"[147]     [207]PPS! [212]HE DEVICE IS NOT READY! "
9710 GOSUB356:RETURN
10000 FORK=0TO24
10010 READ ZZ:POKE828+K,ZZ
10020 NEXT K:RETURN
10500 SYS(828):IFPEEK(2)=5THENDQ=2
10510 RETURN